1 DIR:FORI=0TO12:A$=A$+CHR$(SCREEN(I,2)):NEXT:B=VAL(MID$(A4,INSTR(A$,"/")+1))
2 B=VAL(A$)-B:PRINTMID$(STR$(B),2)+"/0":FSETB